VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BPago"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

'local variable(s) to hold property value(s)
Private mvarnCodigo As Long 'local copy
Private mvarbFormaPago As BFormaPago 'local copy
Private mvarnMonto As Double 'local copy
Friend Property Let nMonto(ByVal vData As Double)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.nMonto = 5
    mvarnMonto = vData
End Property


Friend Property Get nMonto() As Double
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.nMonto
    nMonto = mvarnMonto
End Property



Friend Property Set BFormaPago(ByVal vData As BFormaPago)
'used when assigning an Object to the property, on the left side of a Set statement.
'Syntax: Set x.bFormaPago = Form1
    Set mvarbFormaPago = vData
End Property


Friend Property Get BFormaPago() As BFormaPago
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.bFormaPago
    Set BFormaPago = mvarbFormaPago
End Property



Friend Property Let nCodigo(ByVal vData As Long)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.nCodigo = 5
    mvarnCodigo = vData
End Property


Friend Property Get nCodigo() As Long
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.nCodigo
    nCodigo = mvarnCodigo
End Property



Private Sub Class_Initialize()
Set mvarbFormaPago = New BFormaPago
End Sub

